include(/mnt/Datos/Facultad/Latex/circuit_macros/pgf.m4)
include(/mnt/Datos/Facultad/Latex/circuit_macros/libcct.m4)
   
.PS 
cct_init
  
elen = 1
Origin: Here
	source(up_ elen,V); llabel(V_{BB})
	current
	resistor(right_ elen); rlabel(,R,)
	diode(down_ elen); rlabel(+,V_D,-); b_current(I_D)
	line to Origin
.PE


